home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet multimedia / Animacje, filmy i prezentacje / Modelowanie 3D / K-3D 0.6.5.0 / k3d-all-in-one-setup-0.6.5.0.exe / k3d-setup-0.6.5.0.exe / share / lsystem / cees-sierpinski-gasket.ls < prev    next >
Encoding:
Text File  |  2005-02-12  |  715 b   |  22 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║   Sierpins.ls   │    (c) C.J. van der Mark      ║
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #╠═════════════════════════════════════════════════╣
  8. #║  This file produces a 3D Sierpinski gasket.     ║
  9. #║ Only uneven rec.levels will produce objects.    ║
  10. #╚═════════════════════════════════════════════════╝
  11. 9
  12. 30
  13. 1
  14. C
  15. A={[+f++++f++++f]}
  16. B=[[^(19.5)A^(70)A]>>&(19.5)A^(19.5)---&&&&f&&&&<(19.5)-A]["(.5)C]+++f---
  17. C=[BB+++^^^^f---B'(0.82)f'(1.22)---^'(0.574)f'(1.74)+++>>>>>B]+++ff---
  18. #
  19. {=_
  20. }=_
  21. @
  22.